﻿Public Class clsIPHotspot

    Public Sub Show_User_Profiles(ByVal mkread As List(Of String), ByVal dg As DataGridView, ByVal ds As DataSet, ByVal dt As String)
        For Each row In mkread
            If Not row.Contains("!done") And Not row.Contains("!trap") And Not row = "" Then
                USERVAR = row.Split("=")
                Dim dr_iphotspot As DataRow = ds_IPHotspot.Tables("mk_user_profiles").NewRow
                dr_iphotspot("id") = USERVAR(2)
                dr_iphotspot("name") = USERVAR(4)
                dr_iphotspot("addresspool") = USERVAR(6)
                dr_iphotspot("keepalive") = USERVAR(8)
                ds_IPHotspot.Tables("mk_user_profiles").Rows.Add(dr_iphotspot)
            End If
        Next
        bs_user_profiles = New BindingSource(ds, dt)
        dg.DataSource = bs_user_profiles
        dg.Refresh()
    End Sub

End Class
